home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / misc / euraconu.lha / EuraConfig / Update < prev    next >
Text File  |  1996-12-23  |  3KB  |  135 lines
  1. ; ************************************************
  2. ; *
  3. ; * EuraConfig - HD Update Script
  4. ; *
  5. ; * $VER: Update-EuraConfig 2.00
  6. ; *
  7. ; * Script written by Richard Körber
  8. ; *
  9. ; ************************************************
  10.  
  11. ;------- Prompts ---------------------------------
  12. ;
  13. (set DestDirPrompt
  14.   (cat  "Wohin wurde EuraConfig installiert?\n"
  15.         "(Bitte mit Unterverzeichnis angeben!)"
  16.   )
  17. )
  18.  
  19. (set Ask020Prompt
  20.   (cat  "Wurde die für den 68020 und höher\n"
  21.         "optimierte Version installiert?"
  22.   )
  23. )
  24.  
  25. (set CopyDocPrompt
  26.   (     "Kopiere die Anleitung.")
  27. )
  28.  
  29. (set PatchPrompt
  30.   (     "Generiere das Update.")
  31. )
  32.  
  33. ;------- Help ------------------------------------
  34. ;
  35. (set DestDirHelp
  36.   (cat  "Wählen Sie das Zielverzeichnis aus, z. B.\n"
  37.         "'Work:EuraConfig'."
  38.   )
  39. )
  40.  
  41. (set CopyDocHelp
  42.   (cat  "Welche Teile der Anleitung sollen\n"
  43.         "aktualisiert werden?"
  44.   )
  45. )
  46.  
  47. (set Ask020Help
  48.   (cat  "WICHTIG: Geben Sie hier unbedingt an,\n"
  49.         "welche Version Sie installiert haben.\n\n"
  50.         "Wenn Ihre Angabe nicht stimmt, kann das\n"
  51.         "Update nicht durchgeführt werden!"
  52.   )
  53. )
  54.  
  55. ;------- Messages --------------------------------
  56. ;
  57. (set StartupMsg
  58.   (cat  "\nWillkommen zum\n\n"
  59.         "EuraConfig Update\n\n\n"
  60.         "von Version 2.1 auf Version 2.2"
  61.   )
  62. )
  63.  
  64. (set AllrightMsg
  65.   (cat  "\nEuraConfig ist jetzt aktualisiert.\n\n"
  66.         "Bitte besorgen Sie sich bei nächster\n"
  67.         "Gelegenheit das vollständige Archiv,\n"
  68.         "um auch eine aktuelle Version der\n"
  69.         "Anleitung zu erhalten."
  70.   )
  71. )
  72.  
  73. (set CPU000 "68000, 68010")
  74. (set CPU020 "68020, 68030, 68040, 68060")
  75.  
  76. ;------- Files -----------------------------------
  77. ;
  78. (set Patch          "spatch")
  79. (set EuraCfg000     "EuraConfig.pch")
  80. (set EuraCfg020     "EuraConfig_020.pch")
  81. (set EuraCfg        "EuraConfig")
  82. (set EuraHistory    "History.txt")
  83.  
  84. ;------- Installation ----------------------------
  85. ;
  86. (message StartupMsg)            ;-------- Welcome the user
  87.  
  88. (set DestDir                    ;-------- Ask dir to create drawer into
  89.   (askdir
  90.     (prompt  DestDirPrompt)
  91.     (help    DestDirHelp)
  92.     (default "Work:EuraConfig")
  93.   )
  94. )
  95. (set @default-dest (DestDir))
  96.  
  97. (set usedcpu (+ (database "cpu")))      ; Is a 68020+ available?
  98. (if (< usedcpu 68020)
  99.   (set usedcpu 0)
  100.   (set usedcpu 1)
  101. )
  102. (if (= @user-level 2)
  103.   (set CPUVer
  104.     (askchoice
  105.       (prompt Ask020Prompt)
  106.       (help   Ask020Help)
  107.       (choices CPU000 CPU020)
  108.       (default usedcpu)
  109.     )
  110.   )
  111.   (set CPUVer usedcpu)
  112. )
  113.  
  114. (set Targetfile (tackon DestDir EuraCfg))
  115.  
  116. (if (= CPUVer 0)
  117.   (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg000 " " Targetfile))
  118.   (set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg020 " " Targetfile))
  119. )
  120. (run Cmd (prompt PatchPrompt))
  121.  
  122. (copyfiles                              ; Copy the documentation
  123.   (prompt  CopyDocPrompt)
  124.   (help    CopyDocHelp)
  125.   (source  "")
  126.   (choices EuraHistory)
  127.   (dest    DestDir)
  128.   (confirm)
  129. )
  130.  
  131. (message AllrightMsg)
  132.  
  133. ;------- Done ------------------------------------
  134.  
  135.